Skip to main content
This forum is closed to new posts and responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:

HCL Software Customer Support Portal for U.S. Federal Government clients
HCL Software Customer Support Portal

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)
Previous Next

code

I think this will run:

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim filesys,FullPath,OUName,FileName,Path
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim Object As NotesEmbeddedObject
Dim rtitem As NotesRichTextItem

Set uidoc = ws.CurrentDocument
OUName = uidoc.FieldGetText( "OUName" )
FileName = uidoc.FieldGetText( "FileName" )

Set doc = uidoc.document
Call uidoc.Save
Dim FullPath1 As Variant

'FullPath1 = doc.Getitemvalue("FullPath")
'FullPath = FullPath1(0)
Set rtitem = doc.GetFirstItem("FullPath")
Set Object = rtitem.EmbedObject(EMBED_ATTACHMENT,"",doc.GetItemValue("IdFile")(0))
'Set object = nitem.EmbedObject( EMBED_ATTACHMENT, "", "c:\ID's\" & doc.EMP_ID(0) & ".id" )
Call doc.Save(True,True)


Feedback response number WEBB94WFKT created by ~Anita Kinisonoopsi on 02/14/2013

Error in Code (~Howard Nimnuko... 13.Feb.13)
. . I think the field Fullpath is not a... (~Denise Lopnipl... 13.Feb.13)
. . . . Error in Code (~Howard Nimnuko... 14.Feb.13)
. . . . . . where is this code running?? (~Denise Lopnipl... 14.Feb.13)
. . . . . . . . Reply (~Howard Nimnuko... 14.Feb.13)
. . Try declaring rtitem as NotesRichTe... (~August Cispone... 13.Feb.13)
. . Fullpath not Filename (I think) (~Justin Chugero... 14.Feb.13)
. . . . Still, Problem exists (~Howard Nimnuko... 14.Feb.13)
. . . . . . code (~Denise Lopnipl... 14.Feb.13)
. . . . . . . . Thank You All...It is working.. (~Howard Nimnuko... 14.Feb.13)
. . . . . . . . . . You may want to clean up your code ... (~Dan Kikiterobu... 14.Feb.13)
. . . . . . . . . . . . Thank You Karl......... (~Howard Nimnuko... 15.Feb.13)
. . . . . . . . . . . . . . I am curious... (~Dan Kikiterobu... 15.Feb.13)
. . . . . . . . . . . . . . . . No (~Howard Nimnuko... 27.Mar.13)




Printer-friendly

Search this forum

Member Tools


RSS Feeds

 RSS feedsRSS
All forum posts RSS
All main topics RSS